home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tq.d64 / s.a.comments.d (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  255 lines
  1. 10 PRINT"[147]":POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][149][215][197][204][195][207][205][197] [212][207]:"
  2. 20 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 30 PRINT"[221][146]  [211][213][208][197][210].[193][201][196]  [149][221]"
  4. 40 PRINT"[221][146]  [195][207][205][205][197][206][212][211]   [149][221]"
  5. 50 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  6. 60 PRINT"[194]Y [211]TEVE [199]AST"
  7. 70 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  8. 80 GETW$:IFW$=""THEN80
  9. 90 PRINT"[147][198]OR THOSE INDIVIDUALS INTERESTED IN"
  10. 100 PRINT"MORE INFORMATION ON HOW THIS UTILITY IS"
  11. 110 PRINT"ORGANIZED IN MEMORY THE FOLLOWING SHOULD";
  12. 120 PRINT"BE OF SOME ASSISTANCE."
  13. 130 PRINT"[212]HE [195]-64 [215][197][196][199][197] RESIDES IN MEMORY WHERE"
  14. 140 PRINT"IT ALWAYS HAS: FROM 52224-53082 ([200]EX"
  15. 150 PRINT"[195][195]00-[195][198]5[193]). [201]T IS A MACHINE LANGUAGE"
  16. 160 PRINTCHR$(34)"WEDGE"CHR$(34)" THAT INTERRUPTS THE [195][200][210][199][197][212]"
  17. 170 PRINT"ROUTINE IN PAGE ZERO. ([195][200][210][199][197][212] IS LOCATED";
  18. 180 PRINT"FROM [200]EX 0073-008[193]) [206]ORMALLY THIS IS THE";
  19. 190 PRINT"ROUTINE IN THE OPERATING SYSTEM THAT"
  20. 200 PRINT"CHECKS TO SEE IF ANYTHING HAS BEEN"
  21. 210 PRINT"ENTERED FROM THE KEYBOARD AND THE RETURN";
  22. 220 PRINT"KEY PRESSED. [212]HE [195]-64 [215][197][196][199][197] INTERRUPTS"
  23. 230 PRINT"THIS ROUTINE AT [200]EX 007[195] AND DIVERTS THE";
  24. 240 PRINT"CHAIN OF EVENTS TO THE ENTRY POINT OF"
  25. 250 PRINT"THE [215][197][196][199][197] ([200]EX [195][195][198]3)."
  26. 260 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  27. 270 GETW$:IFW$=""THEN270
  28. 280 PRINT"[147][212]HE [215][197][196][199][197] WILL THEN PERFORM IT'S USEFUL"
  29. 290 PRINT"UTILITY FUNCTIONS. [200]OWEVER, AFTER THE"
  30. 300 PRINT"[215][197][196][199][197] HAS COMPLETED ITS TASK, INSTEAD OF";
  31. 310 PRINT"RETURNING TO THE REST OF THE NORMAL"
  32. 320 PRINT"[195][200][210][199][197][212] ROUTINE FROM THE [215][197][196][199][197]'[211] EXIT"
  33. 330 PRINT"POINTS ([200]EX [195][196]22-[195][196]27) CONTROL TRANSFERS";
  34. 340 PRINT"TO THE ENTRY POINT OF [212][201][206][217][160][193][201][196][160][208][204][213][211] AT"
  35. 350 PRINT"[200]EX 9[194]8[193]. [212][201][206][217] [193][201][196] [208][204][213][211] THEN CARRIES OUT";
  36. 360 PRINT"ITS UTILITY TASKS AND RETURNS CONTROL TO";
  37. 370 PRINT"THE NORMAL OPERATING SYSTEM. [201]T IS"
  38. 380 PRINT"INTERESTING TO NOTE THAT THE ONLY REASON";
  39. 390 PRINT"THESE TWO UTILITIES ARE NOT COMPATIBLE"
  40. 400 PRINT"IS BECAUSE THEY BOTH INTERRUPT THE"
  41. 410 PRINT"[195][200][210][199][197][212] ROUTINE  [193][212][160][212][200][197][160][211][193][205][197][160][208][204][193][195][197]. "
  42. 420 PRINT"[193]NOTHER INTERESTING ASPECT OF [212][201][206][217] [193][201][196]"
  43. 430 PRINT"[208][204][213][211] IS THAT IT RESERVES AN AREA AT THE"
  44. 440 PRINT"TOP OF BASIC IN WHICH TO LIVE. [212][201][206][217] [193][201][196]"
  45. 450 PRINT"[208][204][213][211] RESIDES FROM 39778-40959 ([200]EX 9[194]5[194]-";
  46. 460 PRINT"9[198][198][198]). [212]HIS IS AT THE TOP OF NORMAL"
  47. 470 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  48. 480 GETW$:IFW$=""THEN480
  49. 490 PRINT"[147][194][193][211][201][195] MEMORY. [212]HE TOP OF BASIC IS"
  50. 500 PRINT"MOVED BELOW IT SO [194][193][211][201][195] DOES NOT OVER-"
  51. 510 PRINT"WRITE THE UTILITY. [212]O MOVE THE [205][204]"
  52. 520 PRINT"PROGRAMS YOU CAN USE [216][212][210][193]-[205][207][206] IF YOU"
  53. 530 PRINT"KNOW HOW TO USE A MACHINE LANGUAGE"
  54. 540 PRINT"MONITOR, OR YOU CAN USE THE FOLLOWING"
  55. 550 PRINT"PROCEDURE IF YOU HAVE THE [194]ONUS [196]ISK"
  56. 560 PRINT"[208]ACK FOR THE 1541 DISK DRIVE (IT HAS"
  57. 570 PRINT"THE 1541 BACKUP PROGRAM ON IT)."
  58. 580 PRINT"[213]SE THE 1541 BACKUP PROGRAM AND:"
  59. 590 PRINT"     1) [194]ACKUP THE ENTIRE DISK [212][193][208].9[194]5[194]"
  60. 600 PRINT"        -9[198][198][198] IS ON."
  61. 610 PRINT"     2) [211]CRATCH ALL THE PROGRAMS ON THE"
  62. 620 PRINT"        THE BACKUP [197][216][195][197][208][212]:"
  63. 630 PRINT"          1) [211][213][208][197][210].[193][201][196].C"
  64. 640 PRINT"          2) [215][197][196][199][197].[201][206][211][212].D"
  65. 650 PRINT"          3) [212][193][208].[201][206][211][212].D"
  66. 660 PRINT"          4) [211][213][208][197][210].[196][207][211].[201][206][211][212].D"
  67. 670 PRINT"          5) [211].[193].[195][207][205][205][197][206][212][211].D
  68. 680 [153]"          6) (null)VALSTR$CHR$VAL.LENLEN00-LENASC5ATN.D"
  69. 690 [153]"          7) (null)ATN(null).9PEEK5PEEK-9ASCASCASC.D"
  70. 700 [153]"          8) (null)(null)(null)(null).74LENLEN-801PEEK.D"
  71. 710 [153]"          9) (null)(null)(null)(null).RIGHT$(null)(null)(null).D"
  72. 720 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  73. 730 [161]W$:[139]W$[178]""[167]730
  74. 740 [153]"LOAD     3) (null)AVE THIS DISK AND USE THE"
  75. 750 [153]"        1541 BACKUP TO FORMAT THE (null)VAL(null)"
  76. 760 [153]"        DISK YOU WANT IT ON USING THE"
  77. 770 [153]"        PEEKATN(null) BACKUP OPTION."
  78. 780 [153]"ASCOR THOSE OF YOU WISHING A NOT QUITE"
  79. 790 [153]"SO TECHNICAL DESCRIPTION OF WHAT IS"
  80. 800 [153]"GOING ON: HERE IT IS! ATNLL WE ARE DOING"
  81. 810 [153]"WITH THIS UTILITY IS INTERRUPTING THE"
  82. 820 [153]"NORMAL ROUTINE OF THE COMPUTER TO"
  83. 830 [153]"TEMPORARILY GO SOMEWHERE ELSE AND DO"
  84. 840 [153]"WHAT WE WANT IT TO DO BEFORE IT DOES"
  85. 850 [153]"WHAT IT WANTS TO. (null)E SIMPLY WANT IT TO"
  86. 860 [153]"DO SOME SPECIAL TASKS BEFORE IT GOES"
  87. 870 [153]"ABOUT ITS OWN BUSINESS. (null)HIS IS DONE BY"
  88. 880 [153]"MEANS OF SPECIAL COMMANDS THAT THE"
  89. 890 [153]"COMPUTER IS TOLD TO RECOGNIZE. (null)HE LEN-64"
  90. 900 [153]"(null)VALSTR$CHR$VAL USES THE @ SYMBOL. (null)RIGHT$(null)(null)CLOSEATNRIGHT$STR$CLOSE(null)(null)(null)(null)"
  91. 910 [153]"USES SPECIAL COMMAND WORDS. (null)HEN ONE OF"
  92. 920 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  93. 930 [161]W$:[139]W$[178]""[167]930
  94. 940 [153]"LOADTHESE IS ENCOUNTERED THE COMPUTER"
  95. 950 [153]"STOPS ITS NORMAL EXECUTION AND DETOURS"
  96. 960 [153]"TO WHAT WE WANT DONE. RIGHT$T THEN RETURNS"
  97. 970 [153]"TO ITS NORMAL DUTIES."
  98. 980 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  99. 990 [161]W$:[139]W$[178]""[167]990
  100. 1000 [153]"LOADON                                        ";
  101. 1010 [153]"   WAITFOR(null)VALCLOSEVAL(null)(null)VAL(null)CLOSEATNCLOSE(null)(null)VALLENRIGHT$ATN(null)CLOSELEN(null)(null)(null)(null)(null)(null)CLOSELEN(null)(null)(null)ATN(null)STR$  CLOSE";
  102. 1020 [153]"                                        "
  103. 1030 [129]X[178]1[164]2000:[130]:[153]"LOAD"
  104. 1040 [151]54296,15
  105. 1050 [151]54277,64
  106. 1060 [151]54278,64
  107. 1070 [151]54273,4:[151]54272,73
  108. 1080 [151]54276,129
  109. 1090 [129]X[178]1[164]5:[151]53281,X:[129]T[178]1[164]50:[130]:[130]
  110. 1100 [151]53281,0:[153]"LOAD (null)ATN(null)! "
  111. 1110 [151]54276,0:[151]54277,0:[151]54278,0:[151]54296,0
  112. 1120 [129]X[178]1[164]1000:[130]
  113. 1130 [153]"LOAD"[199](142)"SYS     A SPECIAL COMMAND IS RECOGNIZED "
  114. 1140 [153]"OPEN           OPEN   SYS BASIC PRG   CONT ROM    "
  115. 1150 [153]"LIST0 CHARACTER              CHR$ UTILITY SGN"
  116. 1160 [153]"LIST     GET"
  117. 1170 [153]"LIST   ROUTINE"
  118. 1180 [129]X[178]1[164]2000:[130]
  119. 1190 [129]X[178]2[164]11
  120. 1200 [139]X[173]2[178][181](X[173]2)[167]1230
  121. 1210 [151]54296,8:[151]54277,64:[151]54278,64:[151]54273,4:[151]54272,73:[151]54276,33
  122. 1220 [153]" WAITDEFALERT":[137]1240
  123. 1230 [153]" WAITOPENALERT"
  124. 1240 [129]T[178]1[164]250:[130]:[151]54296,0:[151]54276,0:[151]54277,0:[151]54278,0:[130]
  125. 1250 [153]"DEF      COMMAND JUMPS TO OUR ROUTINE WAIT   "
  126. 1260 [129]X[178]1[164]500:[130]
  127. 1270 [153]"   PRINT(null)"
  128. 1280 [153]"   PRINT(null)"
  129. 1290 [153]"   PRINT(null)"
  130. 1300 [153]"   PRINT(null)"
  131. 1310 [153]"PRINTLEN";
  132. 1320 [129]X[178]1[164]26:[153]"LEN";
  133. 1330 [151]54296,3:[151]54277,64:[151]54278,64:[151]54273,137:[151]54272,43:[151]54276,33
  134. 1340 [129]T[178]1[164]50:[130]:[151]54296,0:[130]
  135. 1350 [153]"RIGHT$"
  136. 1360 [153]"(null)";
  137. 1370 [153]"(null)";
  138. 1380 [153]"(null)":[129]X[178]1[164]1000:[130]
  139. 1390 [153]"PRINT   THE WEDGE DOES ITS JOB WAIT       ":[129]X[178]1[164]1000:[130]
  140. 1400 [129]X[178]1[164]20
  141. 1410 [139]X[173]2[178][181](X[173]2)[167]1440
  142. 1420 [151]54296,5:[151]54277,64:[151]54278,64:[151]54273,68:[151]54272,149:[151]54276,33
  143. 1430 [153]"DEF   ":[137]1450
  144. 1440 [153]"   "
  145. 1450 [129]T[178]1[164]150:[130]:[151]54296,0:[151]54276,0:[130]
  146. 1460 [153]"PRINT(null)"
  147. 1470 [153]"PRINTRIGHT$";
  148. 1480 [129]X[178]1[164]5
  149. 1490 [151]54296,3:[151]54277,64:[151]54278,64:[151]54273,137:[151]54272,43:[151]54276,33
  150. 1500 [153]"CMDCMDLEN";:[129]T[178]1[164]50:[130]:[151]54296,0:[130]
  151. 1510 [153]"PRINT(null)"
  152. 1520 [153]"PRINT(null)"
  153. 1530 [153]"SYS      TINY AID PLUS DOES ITS JOB   ":[129]X[178]1[164]1000:[130]
  154. 1540 [129]X[178]1[164]20
  155. 1550 [139]X[173]2[178][181](X[173]2)[167]1580
  156. 1560 [151]54296,5:[151]54277,64:[151]54278,64:[151]54273,68:[151]54272,149:[151]54276,33
  157. 1570 [153]"DEF  ":[137]1590
  158. 1580 [153]"  "
  159. 1590 [129]T[178]1[164]150:[130]:[151]54296,0:[130]
  160. 1600 [153]"CLR       CONTROL IS RETURNED TO THE  WAIT   "
  161. 1610 [153]"            OPERATING SYSTEM       ":[129]X[178]1[164]1000:[130]
  162. 1620 [153]"PRINTPRINT(null)"
  163. 1630 [153]"PRINTPRINTRIGHT$";
  164. 1640 [129]X[178]1[164]17
  165. 1650 [151]54296,3:[151]54277,64:[151]54278,64:[151]54273,137:[151]54272,43:[151]54276,33
  166. 1660 [153]"CMDCMDLEN";:[129]T[178]1[164]50:[130]:[151]54296,0:[130]:[153]"CMDCMD(null)";:[153]"CMD(null)"
  167. 1670 [129]X[178]2[164]11
  168. 1680 [139]X[173]2[178][181](X[173]2)[167]1710
  169. 1690 [151]54296,8:[151]54277,64:[151]54278,64:[151]54273,4:[151]54272,73:[151]54276,33
  170. 1700 [153]" WAITOPENA.O.K":[137]1720
  171. 1710 [153]" WAITDEFA.O.K"
  172. 1720 [129]T[178]1[164]250:[130]:[151]54296,0:[130]:[129]X[178]1[164]1000:[130]
  173. 1730 [153]"DEFNORMAL":[129]X[178]1[164]1000:[130]
  174. 1740 [153]"       "
  175. 1750 [153]"LIST BACK TO NORMAL ":[129]X[178]1[164]2000:[130]
  176. 1760 [153]" PRESS ANY KEY TO CONTINUE "
  177. 1770 [129]X[178]1[164]10:[161]W$:[130]
  178. 1780 [161]W$:[139]W$[178]""[167]1780
  179. 1790 [153][199](14)"LOADMID$UST A COUPLE OF OTHER QUICK COMMENTS"
  180. 1800 [153]"ABOUT PROGRAM DISK MANIPULATIONS."
  181. 1810 [153]"RIGHT$F YOU COPY THIS PROGRAM FOR YOUR OWN"
  182. 1820 [153]"USE ON OTHER DISKS, ALL YOU (null)VALVALSTR$ TO COPY";
  183. 1830 [153]"ARE: 1)CLOSE(null)(null)(null)VAL(null).ATNRIGHT$STR$, 2) (null)&(null).LEN700-LENASCASCASC"
  184. 1840 [153]"3) (null)ATN(null).9PEEK5ATN-9ASCASCASC AND 4)(null)(null)(null)(null).74LENLEN-801PEEK."
  185. 1850 [153]"ATNFTER DOING THIS BE CAREFUL TO ONLY VAL(null)RIGHT$(null)";
  186. 1860 [153]"THE MENU AFTER RUNNING (null)(null)(null)VAL(null).ATNRIGHT$STR$. (null)HE"
  187. 1870 [153]"INSTRUCTION PROGRAMS WILL NO LONGER BE"
  188. 1880 [153]"PRESENT AND YOU WILL GET A FILE NOT"
  189. 1890 [153]"FOUND DISK ERROR IF YOU TRY TO ACCESS"
  190. 1900 [153]"THEM."
  191. 1910 [153]"RIGHT$ASCCLOSE(null)(null)(null)CLOSECHR$RIGHT$(null)VALCLOSEATNCLOSELEN(null)(null)(null)CLOSE(null)(null)CLOSEATNCLOSEASC(null)RIGHT$VAL(null)STR$CLOSE (null)(null)VALATN(null)VAL "
  192. 1920 [153]"RIGHT$(null)LEN(null)(null)STR$VALCLOSE(null)LEFT$VALCLOSESTR$(null)LEN(null)(null)VAL(null)(null)ATN(null)RIGHT$(null)(null)!"
  193. 1930 [153]"LEFT$OW MANY TIMES HAVE YOU ENCOUNTERED A"
  194. 1940 [153]"PUBLIC DOMAIN PROGRAM WITHOUT PROPER"
  195. 1950 [153]"INSTRUCTIONS?"
  196. 1960 [153]"(null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) (null)(null) LEN(null)(null)(null)RIGHT$(null)(null)VAL"
  197. 1970 [161]W$:C[178]C[170]1:[139]C[178]3[167]C[178]1
  198. 1980 [139]C[178]1[167][153]"DEF LEFT$ATN(null)(null)(null) (null)(null)(null)CHR$(null)ATN(null)(null)RIGHT$(null)CHR$! "
  199. 1990 [139]C[178]2[167][153]"PRINT LEFT$ATN(null)(null)(null) (null)(null)(null)CHR$(null)ATN(null)(null)RIGHT$(null)CHR$! "
  200. 2000 [139]W$[178]""[167]1970
  201. 2010 [153]"LOAD(null)HOUGHT YOU WERE DONE EH? (null)ELL, ALMOST."
  202. 2020 [153]"(null)(null)(null)VAL(null) STR$(null)(null) IS LOCATED IN MEMORY FROM"
  203. 2030 [153]"$LEN700-$LENPEEKASCASC (50944-52223). RIGHT$T INTERRUPTS";
  204. 2040 [153]"THE OPERATING SYSTEM AT $0318-$0319, THE";
  205. 2050 [153]"NON-MASKABLE INTERRUPT VECTOR (792-793).";
  206. 2060 [153]"(null)HEN YOU HIT THE (null)VAL(null)(null)(null)(null)VAL KEY A LEFT$ATN(null)STR$(null)ATN(null)VAL"
  207. 2070 [153]"INTERRUPT OCCURS. (null)E INTERCEPT IT AND DO";
  208. 2080 [153]"OUR JOB AND THEN GIVE CONTROL BACK TO"
  209. 2090 [153]"THE OPERATING SYSTEM. (null)HESE (null)(null)RIGHT$"
  210. 2100 [153]"INTERRUPTS DO NOT SLOW PROGRAM EXECUTION";
  211. 2110 [153]"AS THE (null)VALSTR$CHR$VAL AND (null)RIGHT$(null)(null) ATNRIGHT$STR$ (null)(null)(null)(null) DO. (null)HEY"
  212. 2120 [153]"ARE A DIFFERENT AND INTERESTING WAY TO"
  213. 2130 [153]"BREAK INTO THE OPERATING SYSTEM OF THE"
  214. 2140 [153]"COMPUTER. ASCOR A MORE DETAILED DISCUSSION";
  215. 2150 [153]"OF THIS TECHNIQUE SEE THE SERIES OF"
  216. 2160 [153]"ARTICLES IN (null)RIGHT$LEN(null)(null) (ISSUES 68-71) BY"
  217. 2170 [153]"(null)ICHAEL MID$. (null)ERYAN ENTITLED 'STR$OES RIGHT$T!'."
  218. 2180 [153]"(RIGHT$N THE FIRST ARTICLES IT WAS CALLED"
  219. 2190 [153]"STR$(null)(null) (null)LUS.)
  220. 2200 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  221. 2210 GETW$:IFW$=""THEN2210
  222. 2220 PRINT"[147][201]T SHOULD ALSO BE NOTED THAT THIS"
  223. 2230 PRINT"UTILITY IS STILL BEING DEVELOPED AND"
  224. 2240 PRINT"THAT THIS IS A PRELIMINARY VERSION."
  225. 2250 PRINT"[211]OME OF THE CODE IS A BIT SLOPPY AND";
  226. 2260 PRINT"BREADBOARDED TOGETHER. [204]ATER VERSIONS "
  227. 2270 PRINT"WILL CORRECT THIS AND ADD OTHER UTILITY"
  228. 2280 PRINT"FUNCTIONS. [193]NY COMMENTS MAY BE SENT TO:"
  229. 2290 PRINT"          [211]TEPHEN [210]. [199]AST":PRINT"          1714 [208]ARKSIDE [212]ERRACE"
  230. 2300 PRINT"          [195]HAMPAIGN, [201][204] 61821"
  231. 2310 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  232. 2320 GETW$:IFW$=""THEN2320
  233. 2330 PRINTCHR$(14)"[147] [196][207] [217][207][213] [215][201][211][200] [212][207]: "
  234. 2340 PRINT"1. [210][213][206] [211][213][208][197][210] [193][201][196]"
  235. 2350 PRINT"2. [211][197][197] [196][197][212][193][201][204][197][196] [212][201][206][217] [193][201][196] [208][204][213][211]"
  236. 2360 PRINT"   [201][206][211][212][210][213][195][212][201][207][206][211]"
  237. 2370 PRINT"3. [211][197][197] [196][197][212][193][201][204][197][196] [215][197][196][199][197] [201][206][211][212][210][213][195][212][201][207][206][211]"
  238. 2380 PRINT"4. [211][197][197] [211][213][208][197][210] [196][207][211] [201][206][211][212][210][213][195][212][201][207][206][211]"
  239. 2390 PRINT"5. [211][197][197] [216][212][210][193]-[205][207][206] [201][206][211][212][210][213][195][212][201][207][206][211]"
  240. 2400 PRINT"6. [197][216][201][212] [212][200][197] [208][210][207][199][210][193][205]"
  241. 2410 PRINT"[197]NTER YOUR NUMBER OF CHOICE"
  242. 2420 GETW$:IFW$=""THEN2420
  243. 2430 IFW$<>"1"ANDW$<>"2"ANDW$<>"3"ANDW$<>"4"ANDW$<>"5"ANDW$<>"6"THEN2420
  244. 2440 W=VAL(W$):IFW=6THENPRINT"[147][149]"CHR$(142):NEW:END
  245. 2450 IFW=1THENNP$="SUPER.AID.C"
  246. 2460 IFW=2THENNP$="TAP.INST.D"
  247. 2470 IFW=3THENNP$="WEDGE.INST.D"
  248. 2480 IFW=4THENNP$="SUPER.DOS.INST.D"
  249. 2490 IFW=5THENNP$="XMON.INST.D"
  250. 2500 PRINT"[147][144]LOAD"CHR$(34)NP$CHR$(34)",8"
  251. 2510 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13
  252. 2520 PRINTCHR$(142)"[149][213][195][195][195][195][195][195][195][195][195][195][195][201]"
  253. 2530 PRINTCHR$(142)"[149][221][146]PLEASE WAIT[149][221]"
  254. 2540 PRINTCHR$(142)"[149][202][195][195][195][195][195][195][195][195][195][195][195][203][146][144]":END
  255.